| Filename | (eval 1142)[/usr/lib/perl5/Template/Document.pm:78] |
| Statements | Executed 5 statements in 4µs |
| Eval Invoked At | /usr/lib/perl5/Template/Document.pm line 78 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | sub { | ||||
| 2 | 1 | 600ns | my $context = shift || die "template sub called without context\n"; | ||
| 3 | 1 | 2µs | 1 | 2µs | my $stash = $context->stash; # spent 2µs making 1 call to Template::Context::stash |
| 4 | 1 | 400ns | my $output = ''; | ||
| 5 | 1 | 200ns | my $_tt_error; | ||
| 6 | |||||
| 7 | 1 | 900ns | eval { BLOCK: { | ||
| 8 | $output .= "<!DOCTYPE html>\n"; | ||||
| 9 | #line 2 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/doc-head-open.inc" | ||||
| 10 | if (($stash->get('bidi'))) { | ||||
| 11 | $output .= "<html lang=\""; | ||||
| 12 | #line 2 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/doc-head-open.inc" | ||||
| 13 | $output .= $stash->get('lang'); | ||||
| 14 | $output .= "\" dir=\""; | ||||
| 15 | #line 2 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/doc-head-open.inc" | ||||
| 16 | $output .= $stash->get('bidi'); | ||||
| 17 | $output .= "\">"; | ||||
| 18 | } | ||||
| 19 | else { | ||||
| 20 | $output .= "<html lang=\""; | ||||
| 21 | #line 2 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/doc-head-open.inc" | ||||
| 22 | $output .= $stash->get('lang'); | ||||
| 23 | $output .= "\">"; | ||||
| 24 | } | ||||
| 25 | |||||
| 26 | $output .= " <head>\n<title>\n"; | ||||
| 27 | } }; | ||||
| 28 | if ($@) { | ||||
| 29 | $_tt_error = $context->catch($@, \$output); | ||||
| 30 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 31 | } | ||||
| 32 | |||||
| 33 | return $output; | ||||
| 34 | } | ||||
| 35 | |||||
| 36 | ; |